
log using Analysis_Appendix_log, text


********************************************************************************************************
* Table A1

use "nuclear_latency_panel.dta", clear
summ

********************************************************************************************************
* Table A2

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year


gen a = l.Nu_std
gen b = l2.Nu_std
gen Nu_std_lagged = l3.Nu_std

gen support_US_lagged = l3.support_US_std
gen support_USSR_lagged = l3.support_USSR_std
gen support_UK_lagged = l3.support_UK_std
gen support_France_lagged = l3.support_France_std
gen support_China_lagged = l3.support_China_std



xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged, fe cluster(ccode)
estimates store m1

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_US, fe cluster(ccode)
estimates store m2

esttab m1 m2 using TableA2.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_US, fe cluster(ccode)
margins, dydx(support_US_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of US Signals of Support on Nuclear Latency") level(95)



xtreg Nu_std a b c.Nu_std_lagged##c.support_US_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_US_lagged l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_US, fe cluster(ccode)
margins, dydx(support_US_lagged) at(Nu_std_lagged = (0(0.01)1))
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of US Signals of Support on Nuclear Latency") level(95)
* Figure A1


********************************************************************************************************
*Table A3

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l3.Nu_std

gen support_US_lagged = l3.support_US_std
gen support_USSR_lagged = l3.support_USSR_std
gen support_UK_lagged = l3.support_UK_std
gen support_France_lagged = l3.support_France_std
gen support_China_lagged = l3.support_China_std

xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged l4.support_US_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_USSR, fe cluster(ccode)
estimates store p1
margins, dydx(support_USSR_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of USSR Signals of Support on Nuclear Latency") level(95)
* Figure A2


xtreg Nu_std c.Nu_std_lagged##c.support_China_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_China_lagged l4.support_US_std l4.support_USSR_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_China, fe cluster(ccode)
estimates store p2
margins, dydx(support_China_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of China Signals of Support on Nuclear Latency") level(95)
* Figure A3


xtreg Nu_std c.Nu_std_lagged##c.support_UK_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_UK_lagged l4.support_US_std l4.support_USSR_std l4.support_China_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_UK, fe cluster(ccode)
estimates store p3
margins, dydx(support_UK_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of UK Signals of Support on Nuclear Latency") level(95)
* Figure A4

xtreg Nu_std c.Nu_std_lagged##c.support_France_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_France_lagged l4.support_US_std l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_France, fe cluster(ccode)
estimates store p4
margins, dydx(support_France_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of French Signals of Support on Nuclear Latency") level(95)
* Figure A5

esttab p1 p2 p3 p4 using TableA3.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


********************************************************************************************************
*Table A4

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l3.Nu_std

gen support_US_lagged = l3.support_US_std
gen support_USSR_lagged = l3.support_USSR_std
gen support_UK_lagged = l3.support_UK_std
gen support_France_lagged = l3.support_France_std
gen support_China_lagged = l3.support_China_std

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged, fe cluster(ccode)
estimates store k1

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_China_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_China_lagged, fe cluster(ccode)
estimates store k2

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_UK_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_UK_lagged, fe cluster(ccode)
estimates store k3

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_France_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_France_lagged, fe cluster(ccode)
estimates store k4


esttab k1 k2 k3 k4 using TableA4.tex, se star(+ 0.10 * 0.05 ** 0.01) replace


********************************************************************************************************
*TableA5

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l3.Nu_std

gen support_US_lagged = l3.support_US_std
gen support_USSR_lagged = l3.support_USSR_std
gen support_UK_lagged = l3.support_UK_std
gen support_France_lagged = l3.support_France_std
gen support_China_lagged = l3.support_China_std

xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged l4.support_US_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_USSR, fe cluster(ccode)
estimates store p1
margins, dydx(support_USSR_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of USSR Signals of Support on Nuclear Latency") level(95)
* Figure A6


xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_China_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_China_lagged l4.support_US_std l4.support_USSR_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_China, fe cluster(ccode)
estimates store p2
margins, dydx(support_China_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of China Signals of Support on Nuclear Latency") level(95)
* Figure A7


xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_UK_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_UK_lagged l4.support_US_std l4.support_USSR_std l4.support_China_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_UK, fe cluster(ccode)
estimates store p3
margins, dydx(support_UK_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of UK Signals of Support on Nuclear Latency") level(95)
* Figure A8


xtreg Nu_std l.Nu_std l2.Nu_std c.Nu_std_lagged##c.support_France_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_France_lagged l4.support_US_std l4.support_USSR_std l4.support_China_std l4.support_UK_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_France, fe cluster(ccode)
estimates store p4
margins, dydx(support_France_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of French Signals of Support on Nuclear Latency") level(95)
* Figure A9

esttab p1 p2 p3 p4 using TableA5.tex, se star(+ 0.10 * 0.05 ** 0.01) replace



***************************************************************************************************
* Table A6
use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l.Nu_std

gen support_USSR_lagged = l.support_USSR_std


xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged if year <= 1991, fe cluster(ccode)
estimates store USSRp1

xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged l2.support_US_std l2.support_China_std l2.support_UK_std l2.support_France_std l2.cinc l2.country_dem l2.ln_GNP l2.i.mid l2.IdealPointDistance_USSR if year <= 1991, fe cluster(ccode)
estimates store USSRp2
margins, dydx(support_USSR_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of USSR Signals of Support on Nuclear Latency") level(95)
* Figure A10


esttab USSRp1 USSRp2 using TableA6.tex, se star(+ 0.10 * 0.05 ** 0.01) replace




***************************************************************************************************
* Table A7

use "nuclear_latency_panel.dta", clear

sort ccode year
xi i.year

xtset ccode year

gen Nu_std_lagged = l3.Nu_std

gen support_USSR_lagged = l3.support_USSR_std


xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged if year <= 1991, fe cluster(ccode)
estimates store USSRp1

xtreg Nu_std c.Nu_std_lagged##c.support_USSR_lagged c.Nu_std_lagged##c.Nu_std_lagged##c.support_USSR_lagged l4.support_US_std l4.support_China_std l4.support_UK_std l4.support_France_std l4.cinc l4.country_dem l4.ln_GNP l4.i.mid l4.IdealPointDistance_USSR if year <= 1991, fe cluster(ccode)
estimates store USSRp2
margins, dydx(support_USSR_lagged) at(Nu_std_lagged = (0(0.01)1)) force
marginsplot, recast(line) recastci(rarea) xtitle("Lagged Nuclear Latency") ytitle("Effects on Nuclear Latency") title("Marginal Effects of USSR Signals of Support on Nuclear Latency") level(95)
* Figure A11


esttab USSRp1 USSRp2 using TableA7.tex, se star(+ 0.10 * 0.05 ** 0.01) replace



log close

